9 POKE53280,6:POKE53281,15:POKE646,0
10 POKE45,0:POKE46,19:POKE56,21:POKE52,21:CLR
20 S=54272:POKES+5,12:POKES+6,0:POKES+24,15:POKES+1,25:POKES,177:POKE808,239
30 SYS6390
40 OPEN2,2,3,CHR$(6)
50 POKE251,PEEK(6154):POKE252,PEEK(6155)
100 POKE54276,0:PRINT"[147]":PRINT"               MAIN MENU":PRINT:PRINT
110 PRINT"1 TERMINAL":PRINT
120 PRINT"2 SEARCH TEXT":PRINT
130 PRINT"3 SAVE":PRINT
140 PRINT"4 LOAD":PRINT
150 PRINT"5 SAVE TO PRINTER":PRINT
155 PRINT"6 BUFFER":PRINT
160 PRINT"KEY DIGIT"
170 GETA$:IFA$<"0"ORA$>"6"THEN170
190 ONVAL(A$)GOSUB300,800,400,500,600,700
200 GOTO100
300 PRINT"[147]":POKE53272,23:SYS6528
310 PRINT"[147]":POKE53272,21:PRINT"HAVE YOU LOGGED OFF?"
320 FORA=1TO3000:NEXT:RETURN
400 PRINT"[147]":PRINT:PRINT"              SAVE MENU":PRINT:PRINT
410 PRINT"1 SAVE SELECTED TEXT":PRINT:PRINT"2 SAVE ALL TEXT":PRINT
415 PRINT"3 ABORT THIS FUNCTION":PRINT
420 PRINT"KEY DIGIT":PRINT
430 GETAA$:IFAA$<"1"ORAA$>"3"THEN430
440 IFAA$="3"THENRETURN
450 GOSUB590:OPEN1,A,1,F$
460 SYS-(6240*(AA$="1"))-(5824*(AA$="2"))
470 CLOSE1:RETURN
500 PRINT"[147]":PRINT:PRINT"              LOAD MENU":PRINT:PRINT
510 PRINT"1 LOAD":PRINT:PRINT"2 ABORT THIS FUNCTION":PRINT
520 PRINT"KEY DIGIT":PRINT
530 GETA$:IFA$="2"THENRETURN
540 IFA$<>"1"THEN530
550 GOSUB590:OPEN1,A,0,F$
560 POKE6151,A:SYS6291:CLOSE1:RETURN
590 F$="":INPUT"FILENAME";F$
591 IFF$=""THENPRINT:GOTO590
592 PRINT:PRINT"TAPE OR DISK?"
594 GETA$:A=1:IFA$="D"THENA=8:F$="@0:"+F$:RETURN
596 IFA$<>"T"THEN594
598 RETURN
600 PRINT"[147]":PRINT:PRINT"             PRINTER MENU":PRINT:PRINT
610 PRINT"1 PRINT ALL TEXT":PRINT:PRINT"2 PRINT SELECTED TEXT":PRINT
615 PRINT"3 ABORT THIS FUNCTION":PRINT:PRINT"KEY DIGIT":PRINT
620 GETA$:IFA$<"1"ORA$>"3"THEN620
630 PRINT"OK":OPEN4,4:ONVAL(A$)GOTO650,660,690
650 FORA=6656TOPEEK(251)+PEEK(252)*256:GOTO680
660 FORA=PEEK(6152)+PEEK(6153)*256TOPEEK(6154)+PEEK(6155)*256
680 PRINT#4,CHR$(PEEK(A)AND127);:NEXT:PRINT#4
690 CLOSE4:RETURN
700 PRINT"[147]":PRINT:PRINT"             BUFFER MENU":PRINT:PRINT
710 PRINT"0 RESET BUFFER":PRINT:PRINT"1 BUFFER ON":PRINT:PRINT"2 BUFFER OFF"
720 PRINT:PRINT"3 ABORT THIS FUNCTION":PRINT:PRINT"KEY DIGIT":PRINT
730 GETA$:IFA$<"0"ORA$>"3"THEN730
740 IFA$="0"THEN780
750 IFA$="1"THENPOKE6150,0:PRINT"BUFFER ON":FORA=1TO2000:NEXT
760 IFA$="2"THENPOKE6150,1:PRINT"BUFFER OFF":FORA=1TO2000:NEXT
770 RETURN
780 POKE251,1:POKE252,26:POKE6152,1:POKE6153,26:POKE6154,1:POKE6155,26
790 PRINT"BUFFER RESET":FORA=1TO2000:NEXT:RETURN
800 PRINT"[147]":PRINT"DISPLAY BUFFER":PRINT
810 SYS5377
820 RETURN